Option Explicit
Sub C_Sample035()
    Dim mySht     As Worksheet
    Dim myShtName As String
    myShtName = "Sheet1"					']wu@W
    For Each mySht In Worksheets
        If mySht.Name = myShtName Then
            MsgBox "" & myShtName & "sbC"
            Exit Sub
        End If
    Next
    MsgBox "" & myShtName & "sbC"
    Set mySht = Nothing						'
End Sub
